home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD World 1997 November
/
CD World - Kasım 1997.iso
/
graphics
/
avi
/
avict32.exe
/
0
/
RCDATA
/
TAVILISTWND
/
TAVILISTWND.txt
< prev
Wrap
Text File
|
1997-06-04
|
40KB
|
1,354 lines
object AVIListWnd: TAVIListWnd
Left = 287
Top = 138
Width = 524
Height = 378
Caption = 'AVI Constructor'
Color = clBlack
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'System'
Font.Style = []
Icon.Data = {<image000.ico>}
KeyPreview = True
Menu = MainMenu1
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyPress = FormKeyPress
OnResize = FormResize
PixelsPerInch = 120
TextHeight = 20
object DPanel: TMRPanel
Left = 129
Top = 0
Width = 387
Height = 322
Align = alClient
BevelOuter = bvNone
Color = clBlack
Font.Color = clBlack
Font.Height = -17
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
PopupMenu = PopupMenu2
ShowHint = True
TabOrder = 0
OnResize = DPanelResize
BorderColor = clBlack
BorderSides = []
Moveable = False
CBorderStyle = cbsNone
OnPaint = DPanelPaint
object ColorLabel: TLabel
Left = 0
Top = 258
Width = 387
Height = 19
Align = alBottom
Alignment = taCenter
FocusControl = btn16
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object NumberLabel: TLabel
Left = 0
Top = 239
Width = 387
Height = 19
Align = alBottom
Alignment = taCenter
Font.Color = clWhite
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object PaintBox: TPaintBox
Left = 0
Top = 0
Width = 387
Height = 239
Align = alClient
PopupMenu = PopupMenu2
end
object MRPanel1: TMRPanel
Left = 0
Top = 277
Width = 387
Height = 45
Align = alBottom
BorderWidth = 2
TabOrder = 0
OnResize = MRPanel1Resize
BevelSides = [sdTop]
BorderSides = []
Moveable = False
CBorderStyle = cbsNone
object FPSLabel: TLabel
Left = 3
Top = 3
Width = 57
Height = 39
Hint = 'Flips Per Second for the AVI'
Align = alLeft
Caption = 'AVI FPS'
Color = clBtnFace
Font.Color = clBtnText
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object FPSSpin: TASpinEdit
Left = 60
Top = 3
Width = 55
Height = 39
Hint = 'Flips Per Second for the AVI'
Ctl3D = True
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
MaxValue = 10000
MinValue = 1
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
Value = 8
OnChange = FPSSpinChange
Align = alLeft
end
object BtnMono: TABitbtn
Left = 147
Top = 3
Width = 30
Height = 39
Hint = 'Make Monochrome AVI'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BtnMonoClick
Glyph.Data = {
80000000424D80000000000000003E0000002800000020000000100000000100
01000000000000000000120B0000120B00000000000000000000FFFFFF000000
00007FFF7FFFAAAAAAAAFFFFFFFF0001000000010000078103C0020101000301
018001010080018100C0058102C00301018000010000FFFFFFFFAAAAAAAAFFFF
FFFF0000}
NumGlyphs = 2
Align = alLeft
end
object btn16: TABitbtn
Left = 177
Top = 3
Width = 32
Height = 39
Hint = 'Make 16 Color AVI'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = btn16Click
Glyph.Data = {
80000000424D80000000000000003E0000002800000020000000100000000100
01000000000000000000120B0000120B00000000000000000000FFFFFF000000
00007FFF7FFFAAAAAAAAFFFFFFFF00010000000100001E610F300CD106680CD1
06680CD106680CE106700C4106201C310E1800010000FFFFFFFFAAAAAAAAFFFF
FFFF0000}
NumGlyphs = 2
Align = alLeft
end
object btn256: TABitbtn
Left = 209
Top = 3
Width = 33
Height = 39
Hint = 'Make 256 Color AVI'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsItalic]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = btn256Click
Glyph.Data = {
80000000424D80000000000000003E0000002800000020000000100000000100
01000000000000000000120B0000120B00000000000000000000FFFFFF000000
00007FFF7FFFAAAAAAAAFFFFFFFF0001000000010000F7197B8C44B5225A60B5
305A27B513DA37391B9CB2115908638D31C600010000FFFFFFFFAAAAAAAAFFFF
FFFF0000}
NumGlyphs = 2
Align = alLeft
end
object btntc: TABitbtn
Left = 242
Top = 3
Width = 32
Height = 39
Hint = 'Make True Color AVI'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = btntcClick
Glyph.Data = {
80000000424D80000000000000003E0000002800000020000000100000000100
01000000000000000000120B0000120B00000000000000000000FFFFFF000000
00007FFF7FFFAAAAAAAAFFFFFFFF00010000000100003C711E3818C90C6418C1
0C6018C10C6018C10C605AD92D6C7E693F3400010000FFFFFFFFAAAAAAAAFFFF
FFFF0000}
NumGlyphs = 2
Align = alLeft
end
object BtnUnknown: TABitbtn
Left = 115
Top = 3
Width = 32
Height = 39
Hint = 'Make an AVI by the format of the first image.'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = BtnUnknownClick
Glyph.Data = {
80000000424D80000000000000003E0000002800000020000000100000000100
01000000000000000000120B0000120B00000000000000000000FFFFFF000000
00007FFF7FFFAAAAAAAAFFFFFFFF000100000001000003010180000100000301
0180018100C000C1006006C10360038101C000010000FFFFFFFFAAAAAAAAFFFF
FFFF0000}
NumGlyphs = 2
Align = alLeft
end
end
object BuildPanel: TPanel
Left = 256
Top = 312
Width = 25
Height = 25
BorderWidth = 12
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
PopupMenu = PopupMenu3
TabOrder = 1
Visible = False
object BuildGauge: TGauge
Left = 13
Top = 33
Width = 199
Height = 25
Align = alTop
Progress = 0
end
object FileNameLabel: TLabel
Left = 13
Top = 13
Width = 199
Height = 20
Align = alTop
Alignment = taCenter
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object FileSizeLabel: TLabel
Left = 13
Top = 58
Width = 199
Height = 20
Align = alTop
Alignment = taCenter
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object CommentLabel: TLabel
Left = 13
Top = 151
Width = 199
Height = 20
Align = alTop
Alignment = taCenter
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object PaletteLabel: TLabel
Left = 13
Top = 171
Width = 71
Height = 20
Align = alTop
Alignment = taCenter
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object BuildNumberLabel: TLabel
Left = 13
Top = 131
Width = 199
Height = 20
Align = alTop
Alignment = taCenter
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object DecodeLabel: TLabel
Left = 13
Top = 111
Width = 199
Height = 20
Align = alTop
Alignment = taCenter
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object CancelBtn: TABitbtn
Left = 13
Top = 78
Width = 199
Height = 33
Font.Color = clBlack
Font.Height = -17
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = CancelBtnClick
Kind = bkCancel
Align = alTop
end
end
end
object ListPanel: TMRPanel
Left = 0
Top = 0
Width = 129
Height = 322
Align = alLeft
BevelInner = bvLowered
BevelWidth = 2
BorderWidth = 1
Ctl3D = True
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsUnderline]
ParentCtl3D = False
ParentFont = False
TabOrder = 1
OnResize = ListPanelResize
BevelSides = [sdTop, sdRight]
BorderSides = []
Moveable = False
CBorderStyle = cbsNone
OnNCHitTest = ListPanelNCHitTest
object FrameLabel: TLabel
Left = 5
Top = 273
Width = 119
Height = 17
Align = alBottom
Caption = 'Frame Duration:'
Color = clBtnFace
Font.Color = clBtnText
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Bevel1: TBevel
Left = 5
Top = 228
Width = 119
Height = 7
Align = alBottom
Shape = bsBottomLine
Style = bsRaised
end
object SpinButton1: TSpinButton
Left = 5
Top = 235
Width = 119
Height = 38
Hint = 'This Cycles Though the Images ( in the list above)'
Align = alBottom
Ctl3D = True
DownGlyph.Data = {
7E040000424D7E04000000000000360400002800000009000000060000000100
0800000000004800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030000000303030300030303030000000303030000000303030000000303
0000000000030300000003000000000000000300000003030303030303030300
0000}
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
UpGlyph.Data = {
7E040000424D7E04000000000000360400002800000009000000060000000100
0800000000004800000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030000000300000000000000030000000303000000000003030000000303
0300000003030300000003030303000303030300000003030303030303030300
0000}
OnDownClick = SpinButton1DownClick
OnUpClick = SpinButton1UpClick
end
object LBEdit1: TLBEdit
Left = 5
Top = 5
Width = 119
Height = 223
Hint = 'This is the image (frame) list.'
Align = alClient
BorderStyle = bsNone
Color = clBtnFace
Ctl3D = False
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 16
MultiSelect = True
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
PopupMenu = PopupMenu1
ShowHint = True
Style = lbOwnerDrawVariable
TabOrder = 1
OnClick = Listbox1Click
BTNBorderWidth = 0
ExtraHeight = 10
ShowItems = True
ShowIndex = True
end
object FlipSpin: TASpinEdit
Left = 5
Top = 290
Width = 119
Height = 27
Ctl3D = True
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
MaxValue = 1000000
MinValue = 1
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
Value = 1
OnChange = FlipSpinChange
Align = alBottom
end
end
object MainMenu1: TMainMenu
Left = 256
Top = 88
object ProjectMenu: TMenuItem
Caption = '&Project'
ShortCut = 0
OnClick = ProjectMenuClick
object NewProjectMenu: TMenuItem
Caption = 'Start New Project'
ShortCut = 0
OnClick = NewProjectMenuClick
end
object N10: TMenuItem
Caption = '-'
ShortCut = 0
end
object AddImages1: TMenuItem
Caption = 'Add Images ...'
ShortCut = 0
OnClick = AddImages1Click
end
object ExtractImagesFromAVI1: TMenuItem
Caption = '&Get images from an AVI ...'
ShortCut = 0
OnClick = ExtractImagesFromAVI1Click
end
object OpenFileList1: TMenuItem
Caption = '&Open file list ...'
ShortCut = 0
OnClick = OpenFileList1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object SaveFileListMenu: TMenuItem
Caption = '&Save file list ...'
ShortCut = 0
OnClick = SaveFileListMenuClick
end
object SaveAllImagesMenu: TMenuItem
Caption = '&Save or Save a Copy all images ...'
ShortCut = 0
OnClick = SaveAllImagesMenuClick
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit AVI Constructor'
ShortCut = 0
OnClick = Exit1Click
end
end
object ListMenu: TMenuItem
Caption = '&Edit List'
ShortCut = 0
OnClick = ListMenuClick
object CutSelected: TMenuItem
Caption = 'Cut '
ShortCut = 16472
OnClick = CutSelectedClick
end
object CopySelected: TMenuItem
Caption = 'Copy '
ShortCut = 16451
OnClick = CopySelectedClick
end
object PasteAtSelected: TMenuItem
Caption = 'Paste '
ShortCut = 16470
OnClick = PasteAtSelectedClick
end
object Pasteat1: TMenuItem
Caption = 'Paste at beginning'
ShortCut = 16450
OnClick = Pasteat1Click
end
object PasteAfterLastItem: TMenuItem
Caption = 'Paste at end '
ShortCut = 16453
OnClick = PasteAfterLastItemClick
end
object RemoveSelected: TMenuItem
Caption = 'Delete'
ShortCut = 16430
OnClick = RemoveSelectedClick
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object SelectAll1: TMenuItem
Caption = 'Select all'
ShortCut = 0
OnClick = SelectAll1Click
end
object SelectNone1: TMenuItem
Caption = 'Select none'
ShortCut = 0
OnClick = SelectNone1Click
end
object N6: TMenuItem
Caption = '-'
ShortCut = 0
end
object ReverseSelection1: TMenuItem
Caption = 'Reverse selection'
ShortCut = 0
OnClick = ReverseSelection1Click
end
object N4: TMenuItem
Caption = '-'
ShortCut = 0
end
object ReverseList1: TMenuItem
Caption = 'Reverse list'
ShortCut = 0
OnClick = ReverseList1Click
end
object SortList1: TMenuItem
Caption = 'Sort list'
ShortCut = 16467
OnClick = SortList1Click
end
object N18: TMenuItem
Caption = '-'
ShortCut = 0
end
object SetAllFrameRatesto11: TMenuItem
Caption = 'Set All Frame Rates to 1'
ShortCut = 0
OnClick = SetAllFrameRatesto11Click
end
object N11: TMenuItem
Caption = '-'
ShortCut = 0
end
object Makefromlistselection1: TMenuItem
Caption = 'Make AVI from selection'
ShortCut = 0
object Selection2ColorMenu: TMenuItem
Caption = '2 Color'
ShortCut = 0
OnClick = MakeMovie
end
object Selection16ColorMenu: TMenuItem
Caption = '16 Color'
ShortCut = 0
OnClick = MakeMovie
end
object Selection256ColorMenu: TMenuItem
Caption = '256 Color'
ShortCut = 0
OnClick = MakeMovie
end
object SelectionHighColorMenu: TMenuItem
Caption = 'High Color ( 16 bit )'
ShortCut = 0
OnClick = MakeMovie
end
object SelectionTrueColorMenu: TMenuItem
Caption = 'True Color ( 24 bit )'
ShortCut = 0
OnClick = MakeMovie
end
object Selection32bitTrueColorMenu: TMenuItem
Caption = 'True Color ( 32 bit )'
ShortCut = 0
OnClick = MakeMovie
end
end
end
object ImageMenu: TMenuItem
Caption = '&Image'
ShortCut = 0
OnClick = ImageMenuClick
object CopyImageMenu: TMenuItem
Caption = 'Copy image'
Hint = 'This places the image in the clipboard'
ShortCut = 0
OnClick = CopyImageMenuClick
end
object PasteAtBeginningMenu: TMenuItem
Caption = 'Paste at Beginning'
ShortCut = 0
OnClick = PasteAtBeginningMenuClick
end
object GetSaveTempAdd: TMenuItem
Caption = 'Get Image, Save as Temp. File, and Add Link'
ShortCut = 16468
OnClick = GetSaveTempAddClick
end
object PasteAtEndMenu: TMenuItem
Caption = 'Paste at End'
ShortCut = 0
OnClick = PasteAtEndMenuClick
end
object GetSaveAdd: TMenuItem
Caption = 'Get Image, Save as ... , Add Link'
ShortCut = 16455
OnClick = GetSaveAddClick
end
object GetSaveIntoAdd: TMenuItem
Caption = 'Get Image, Save INTO ..., Add Link '
ShortCut = 16466
OnClick = GetSaveIntoAddClick
end
object N12: TMenuItem
Caption = '-'
ShortCut = 0
end
object SaveImageMenu: TMenuItem
Caption = 'Save a copy of current Image'
ShortCut = 0
OnClick = SaveImageMenuClick
end
object SaveImageUpdateLinkMenu: TMenuItem
Caption = 'Save current Image + Update link '
ShortCut = 0
OnClick = SaveImageUpdateLinkMenuClick
end
object N14: TMenuItem
Caption = '-'
ShortCut = 0
end
object PrintScreenSizeMenu: TMenuItem
Caption = 'Print image - screen size'
ShortCut = 0
OnClick = Print1Click
end
object PrintToFitMenu: TMenuItem
Caption = 'Print image - fit to page '
ShortCut = 0
OnClick = PrintandFit1Click
end
object PrintAllMenu: TMenuItem
Caption = 'Print All'
ShortCut = 0
object PrintAllHorz1: TMenuItem
Caption = '= in Rows '
ShortCut = 0
OnClick = PrintAllHorz1Click
end
object TileAllVert1: TMenuItem
Caption = '|| in Columns '
ShortCut = 0
OnClick = TileAllVert1Click
end
object OneRow1: TMenuItem
Caption = '- one row per page'
ShortCut = 0
OnClick = OneRow1Click
end
object OneColumn1: TMenuItem
Caption = '| one Column per page'
ShortCut = 0
OnClick = OneColumn1Click
end
object N22: TMenuItem
Caption = '-'
ShortCut = 0
end
object N1Imageperpagefittopage1: TMenuItem
Caption = '1 Image per page - Fit to page'
ShortCut = 0
OnClick = N1Imageperpagefittopage1Click
end
object OneImageperpage1: TMenuItem
Caption = '1 Image per page - Screen Size'
ShortCut = 0
OnClick = OneImageperpage1Click
end
end
object N21: TMenuItem
Caption = '-'
ShortCut = 0
end
object SpawnMenu: TMenuItem
Caption = 'Start my default viewer with this image'
ShortCut = 115
OnClick = SpawnMenuClick
end
end
object MakeMenu: TMenuItem
Caption = '&Make AVI'
ShortCut = 0
OnClick = MakeMenuClick
object MakeDefaultMenu: TMenuItem
Caption = 'Assume all images are similar'
ShortCut = 115
OnClick = MakeMovie
end
object Make2ColorMenu: TMenuItem
Caption = '2 Color'
ShortCut = 116
OnClick = MakeMovie
end
object Make16ColorMenu: TMenuItem
Caption = '16 color'
ShortCut = 117
OnClick = MakeMovie
end
object Make256ColorMenu: TMenuItem
Caption = '256 color'
ShortCut = 118
OnClick = MakeMovie
end
object MakeHighColorMenu: TMenuItem
Caption = 'High color'
ShortCut = 119
OnClick = MakeMovie
end
object MakeTrueColorMenu: TMenuItem
Caption = 'True color '
ShortCut = 120
OnClick = MakeMovie
end
object Make32bitTrueColorMenu: TMenuItem
Caption = '32 bit true color'
ShortCut = 121
OnClick = MakeMovie
end
object N15: TMenuItem
Caption = '-'
ShortCut = 0
end
object NegativeColorMenu: TMenuItem
Caption = 'Negative Color'
ShortCut = 0
object Inverse2ColorMenu: TMenuItem
Caption = '2 Colors'
ShortCut = 0
OnClick = MakeMovie
end
object Inverse16ColorMenu: TMenuItem
Caption = '16 Colors'
ShortCut = 0
OnClick = MakeMovie
end
object Inverse256ColorMenu: TMenuItem
Caption = '256 Colors'
ShortCut = 0
OnClick = MakeMovie
end
object InverseTrueColorMenu: TMenuItem
Caption = 'True Color'
ShortCut = 0
OnClick = MakeMovie
end
end
object AdjustToColorMenu: TMenuItem
Caption = 'Adjust To Color '
ShortCut = 0
object Adjust2ColorMenu: TMenuItem
Caption = '2 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object Adjust16ColorMenu: TMenuItem
Caption = '16 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object Adjust256ColorMenu: TMenuItem
Caption = '256 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object AdjustTrueColorMenu: TMenuItem
Caption = 'True Color ...'
ShortCut = 0
OnClick = MakeMovie
end
end
object ColorScaleMenu: TMenuItem
Caption = 'Color Scale '
ShortCut = 0
object Scale2ColorMenu: TMenuItem
Caption = '2 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object Scale16ColorMenu: TMenuItem
Caption = '16 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object Scale256ColorMenu: TMenuItem
Caption = '256 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object ScaleTrueColorMenu: TMenuItem
Caption = 'True Color ...'
ShortCut = 0
OnClick = MakeMovie
end
end
object MaximumColorMenu: TMenuItem
Caption = 'Maximum Color'
ShortCut = 0
object Maximum2ColorMenu: TMenuItem
Caption = '2 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object Maximum16ColorMenu: TMenuItem
Caption = '16 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object Maximum256ColorMenu: TMenuItem
Caption = '256 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object MaximumTrueColorMenu: TMenuItem
Caption = 'True Color ...'
ShortCut = 0
OnClick = MakeMovie
end
end
object RandomColorMenu: TMenuItem
Caption = 'Random Color'
ShortCut = 0
object Random2ColorMenu: TMenuItem
Caption = '2 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object Random16ColorMenu: TMenuItem
Caption = '16 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object Random256ColorMenu: TMenuItem
Caption = '256 Color ...'
ShortCut = 0
OnClick = MakeMovie
end
object RandomTrueColorMenu: TMenuItem
Caption = 'TrueColor ...'
ShortCut = 0
OnClick = MakeMovie
end
end
object N19: TMenuItem
Caption = '-'
ShortCut = 0
end
object Makefromfilelist1: TMenuItem
Caption = 'Make AVI from a file list (text file)'
ShortCut = 0
object MakeDefaultAVIFromFileList: TMenuItem
Caption = 'Assume All Images are similar'
ShortCut = 0
OnClick = MakeMovieFromFileList
end
object Make2ColorAVIFromFileList: TMenuItem
Caption = '2 Color AVI'
ShortCut = 0
OnClick = MakeMovieFromFileList
end
object Make16ColorAVIFromFileList: TMenuItem
Caption = '16 color AVI'
ShortCut = 0
OnClick = MakeMovieFromFileList
end
object Make256ColorAVIFromFileList: TMenuItem
Caption = '256 color AVI'
ShortCut = 0
OnClick = MakeMovieFromFileList
end
object MakeHighColorAVIFromFileList: TMenuItem
Caption = 'High Color AVI ( 16 bit )'
ShortCut = 0
OnClick = MakeMovieFromFileList
end
object MakeTrueColorAVIFromFileList: TMenuItem
Caption = 'True Color AVI ( 24 bit )'
ShortCut = 0
OnClick = MakeMovieFromFileList
end
object Make32bitTrueColorAVIFromFileList: TMenuItem
Caption = 'True Color AVI ( 32 bit )'
ShortCut = 0
OnClick = MakeMovieFromFileList
end
end
end
object OptionsMenu: TMenuItem
Caption = '&Options'
ShortCut = 0
OnClick = OptionsMenuClick
object AutopasteMenu: TMenuItem
Caption = 'AutoPaste new images from clipboard'
Hint =
'If checked: When a new image enters clipboard, AVI Constructor w' +
'ill get it.'
ShortCut = 0
OnClick = AutopasteMenuClick
end
object N9: TMenuItem
Caption = '-'
ShortCut = 0
end
object AVIOptions1: TMenuItem
Caption = 'Video Options'
ShortCut = 0
OnClick = AVIOptions1Click
object AskForCompressionMenu: TMenuItem
Caption = 'Always Ask For Compression ( 256 Colors and above only )'
ShortCut = 0
OnClick = AskForCompressionMenuClick
end
object WriteColorPalettesMenu: TMenuItem
Caption = 'Write Palette Changes '
ShortCut = 0
OnClick = WriteColorPalettesMenuClick
end
object KeyframeMenu: TMenuItem
Caption = 'Keyframes '
ShortCut = 0
OnClick = KeyframeMenuClick
end
end
object AVIAudioOptions1: TMenuItem
Caption = 'Audio Options'
ShortCut = 0
OnClick = AVIAudioOptions1Click
object NoAudioMenu: TMenuItem
Caption = 'No Audio'
ShortCut = 0
OnClick = NoAudioMenuClick
end
object AskforAudioFileMenu: TMenuItem
Caption = 'Ask for Audio File'
ShortCut = 0
OnClick = AskforAudioFileMenuClick
end
object AlwaysInsertAudioMenu: TMenuItem
Caption = 'Always insert audio file ...'
ShortCut = 0
OnClick = AlwaysInsertAudioMenuClick
end
end
object File1: TMenuItem
Caption = 'AVI file name '
ShortCut = 0
OnClick = File1Click
object AskforAVIFileMenu: TMenuItem
Caption = 'Ask for AVI file name.'
ShortCut = 0
OnClick = AskforAVIFileMenuClick
end
object AlwaysSaveAVIAsMenu: TMenuItem
Caption = 'Always save AVI file as ...'
ShortCut = 0
OnClick = AlwaysSaveAVIAsMenuClick
end
end
object N16: TMenuItem
Caption = '-'
ShortCut = 0
end
object JPEGEncoding1: TMenuItem
Caption = 'JPEG Encoding ...'
ShortCut = 0
OnClick = JPEGEncoding1Click
end
object JpegDecoding1: TMenuItem
Caption = 'JPEG Decoding ...'
ShortCut = 0
OnClick = JpegDecoding1Click
end
object DefaultImageFormat1: TMenuItem
Caption = 'Default Image Format'
ShortCut = 0
OnClick = DefaultImageFormat1Click
object BMPDefault: TMenuItem
Caption = 'Bitmap'
ShortCut = 0
OnClick = BMPDefaultClick
end
object JpegDefault: TMenuItem
Caption = 'JPEG'
ShortCut = 0
OnClick = JpegDefaultClick
end
end
object View1: TMenuItem
Caption = 'Display'
ShortCut = 0
OnClick = View1Click
object ShowFilesMenu: TMenuItem
Caption = 'File names in image list'
ShortCut = 0
OnClick = ShowFilesMenuClick
end
object ShowFramesMenu: TMenuItem
Caption = 'Frame numbers'
ShortCut = 0
OnClick = ShowFramesMenuClick
end
object ShowColorDisplayMenu: TMenuItem
Caption = '# of colors in display image '
ShortCut = 0
OnClick = ShowColorDisplayMenuClick
end
object FrameListLeftMenu: TMenuItem
Caption = 'Put frame list to the left'
ShortCut = 0
OnClick = FrameListLeftMenuClick
end
object ShowAVIOptionsMenu: TMenuItem
Caption = 'AVI Options '
ShortCut = 0
OnClick = ShowAVIOptionsMenuClick
end
end
object N17: TMenuItem
Caption = '-'
ShortCut = 0
end
object ShowHintsMenu: TMenuItem
Caption = 'Show Hints'
ShortCut = 0
OnClick = ShowHintsMenuClick
end
object AutoPlayMenu: TMenuItem
Caption = 'Spawn to default player after building AVI'
ShortCut = 0
OnClick = AutoPlayMenuClick
end
object WarningsMenu: TMenuItem
Caption = 'Overwrite file warnings'
ShortCut = 0
OnClick = WarningsMenuClick
end
object SoundMenu: TMenuItem
Caption = 'Sounds'
ShortCut = 0
OnClick = SoundMenuClick
end
object N23: TMenuItem
Caption = '-'
ShortCut = 0
end
object PresentationModeMenu: TMenuItem
Caption = 'Full Screen Mode'
ShortCut = 0
OnClick = PresentationModeMenuClick
end
end
object ToolsMenu: TMenuItem
Caption = '&Tools'
ShortCut = 0
object ICapture1: TMenuItem
Caption = 'Capture an image from another window'
ShortCut = 0
OnClick = ICapture1Click
end
end
object AboutMenu: TMenuItem
Caption = 'About'
ShortCut = 0
object About2: TMenuItem
Caption = 'About ...'
ShortCut = 0
OnClick = About2Click
end
object WherecanIsendaquestioncommentorsuggestion1: TMenuItem
Caption = 'Product support ...'
ShortCut = 0
OnClick = WherecanIsendaquestioncommentorsuggestion1Click
end
object N13: TMenuItem
Caption = '-'
ShortCut = 0
end
object HowdoIcompressanAVI1: TMenuItem
Caption = 'How do I compress an AVI?'
ShortCut = 0
OnClick = HowdoIcompressanAVI1Click
end
object HowdoIaddaudiotoanAVI1: TMenuItem
Caption = 'How do I add sound to an AVI?'
ShortCut = 0
OnClick = HowdoIaddaudiotoanAVI1Click
end
end
end
object SaveListDialog: TSaveDialog
FileEditStyle = fsEdit
Filter = 'Bitmap (*.BMP)|*.BMP|All Files (*.*)|*.*'
Left = 481
Top = 162
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 280
Top = 96
object Cut1: TMenuItem
Caption = 'Cut'
ShortCut = 0
OnClick = CutSelectedClick
end
object copy1: TMenuItem
Caption = 'Copy'
ShortCut = 0
OnClick = CopySelectedClick
end
object Paste2: TMenuItem
Caption = 'Paste'
ShortCut = 0
OnClick = PasteAtSelectedClick
end
object PasteatBeginning1: TMenuItem
Caption = 'Paste at Beginning'
ShortCut = 0
OnClick = Pasteat1Click
end
object PasteatEnd1: TMenuItem
Caption = 'Paste at End'
ShortCut = 0
OnClick = PasteAfterLastItemClick
end
object Delete1: TMenuItem
Caption = 'Delete'
ShortCut = 0
OnClick = RemoveSelectedClick
end
object N5: TMenuItem
Caption = '-'
ShortCut = 0
end
object ReverseSelection2: TMenuItem
Caption = 'Reverse selection'
Enabled = False
ShortCut = 0
OnClick = ReverseSelection2Click
end
object N7: TMenuItem
Caption = '-'
ShortCut = 0
end
object MakeAVIfromselection: TMenuItem
Caption = 'Make 256 color AVI from selection'
ShortCut = 0
end
object MakeTCAVIfromselection: TMenuItem
Caption = 'Make true color AVI from selection'
ShortCut = 0
end
end
object PopupMenu2: TPopupMenu
OnPopup = PopupMenu2Popup
Left = 297
Top = 108
object CopyThisImage1: TMenuItem
Caption = 'Copy This Image'
ShortCut = 0
OnClick = CopyImageMenuClick
end
object GetAddImage2: TMenuItem
Caption = 'Past Clipboard Image at Selected Position'
ShortCut = 0
OnClick = GetSaveTempAddClick
end
object GetSaveAddImage2: TMenuItem
Caption = 'Paste Clipboard Image at Selected Position (But save it first)'
ShortCut = 0
OnClick = GetSaveAddClick
end
end
object ColorDialog: TColorDialog
Ctl3D = True
Color = clSilver
Options = [cdFullOpen]
Left = 327
Top = 32
end
object PopupMenu3: TPopupMenu
Left = 329
Top = 224
object About1: TMenuItem
Caption = '&About'
ShortCut = 0
OnClick = About2Click
end
end
end